home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / WWW / Charon / Update_Charon < prev    next >
Text File  |  2000-04-19  |  2KB  |  97 lines
  1. ; Charon update script 1.2 (19.4.2000)
  2. ;
  3. ; ©2000 Andrija Antonijevic
  4. ;
  5.  
  6. (complete 0)
  7.  
  8. (message "This script will update Charon v1.1 to v1.2. Do NOT use this "
  9.         "script to update any other version to v1.2. If you have any "
  10.         "version lower than 1.1, abort the installation and either find "
  11.         "older Charon distributions and update to v1.1 step by step and "
  12.         "then use this script to update it to v1.2, or reinstall Charon "
  13.         "using Install_Charon script. Do note that in the latter case "
  14.         "Charon_key.library will be overwritten by demo version, so "
  15.         "if you have registered Charon, please back up your key file "
  16.         "before reinstalling Charon."
  17. )
  18.  
  19. (set #source-dir
  20.     (if (= 1 (exists @icon))
  21.         (pathonly (expandpath @icon))
  22.     ;else
  23.         (expandpath @icon)
  24.     )
  25. )
  26.  
  27. (set @default-dest
  28.     (askdir
  29.         (prompt "Please select the directory in which Charon executable resides")
  30.         (help @askdir-help)
  31.         (default @default-dest)
  32.     )
  33. )
  34.  
  35. (if (not (exists (tackon @default-dest "Charon")))
  36.     (abort "Charon doesn't seem to be installed.")
  37. )
  38.  
  39. (complete 25)
  40.  
  41. (copyfiles
  42.     (source (tackon #source-dir "Doc"))
  43.     (dest (tackon @default-dest "Doc"))
  44.     (infos)
  45.     (all)
  46. )
  47.  
  48. (complete 35)
  49.  
  50. (copyfiles
  51.     (source (tackon #source-dir "Libs/Charon_AmiSSL.library"))
  52.     (dest (tackon @default-dest "Libs"))
  53. )
  54.  
  55. (copyfiles
  56.     (source (tackon #source-dir "Libs/Charon_classes.library"))
  57.     (dest (tackon @default-dest "Libs"))
  58. )
  59.  
  60. (copyfiles
  61.     (source (tackon #source-dir "Libs/Charon_FTP.library"))
  62.     (dest (tackon @default-dest "Libs"))
  63. )
  64.  
  65. (copyfiles
  66.     (source (tackon #source-dir "Libs/Charon_HTTP.library"))
  67.     (dest (tackon @default-dest "Libs"))
  68. )
  69.  
  70. (copyfiles
  71.     (source (tackon #source-dir "Libs/Charon_MiamiSSL.library"))
  72.     (dest (tackon @default-dest "Libs"))
  73. )
  74.  
  75. (copyfiles
  76.     (source (tackon #source-dir "Libs/Charon_search.library"))
  77.     (dest (tackon @default-dest "Libs"))
  78. )
  79.  
  80. (copyfiles
  81.     (source (tackon #source-dir "Libs/Charon_utility.library"))
  82.     (dest (tackon @default-dest "Libs"))
  83. )
  84.  
  85. (complete 75)
  86.  
  87. (copyfiles
  88.     (source (tackon #source-dir "Charon"))
  89.     (dest @default-dest)
  90. )
  91.  
  92. (delete "ENVARC:CharonTime" force)
  93.  
  94. (complete 100)
  95.  
  96. (exit "Charon installation updated successfully. Enjoy using Charon!")
  97.